﻿Public Class frmInicio
    Dim c As Integer = 0
    Dim g As Boolean = False
    Dim usuario As String = "" 'CREAMOS UN VALOR USUARIO DE TIPO CADENA ESTO NOS SRVIRA PARA CREAR UN NUEVO USUARIO 
    Dim password As String = "" ' CREAMOS UN VALOR PASSWOORD DE TIPO CADENA ESTO NOS PERMITIRA PARA CREAR UN NUEVO PASSWORD
    Private Sub frmInicio_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            conectar() ' PERMITE INICIAR LA CONECCION
        Catch ex As Exception
            MsgBox("No fue encontrada la base de datos en la" & _
            "ubicacion predeterminada .. Elija un nuevo origen") 'PERMITE MOSTRAR QUE LA CONECCION NO SE HA REALIZADO SATISFACTORIAMENTE
            ModificarConeccion() ' NOS PERMITE MODIFICAR LA CONECCION PARA SU RESPECTIVA INICIACION CORRECTA
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End ' ESTE BOTON NOS ERMITE SALIR DEL PROGRAMA
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rs As ADODB.Recordset 'CREAMOS UN OBJETO DE  RS DE TIPO ADO PARA LA CONECCION
        Dim sql As String 'CREAMOS UN VALOR SQL DE TIPO CADENA 
        sql = "Select *from USUARIO WHERE CODI_ADMIN='" & txtUsuario.Text & "'" ' PERMITE SELECCIONAR LA TABLA USUARIO Y SE VERIFICA SI SE ENCUENTRA EL CODIGO USUARIO Y TEXTO DE USUARIO PARA SU RESPECTIVA CONECCION 
        rs = coneccion.Execute(sql) 'PERMITE LA EJECUCION DE LA CONECCION  
        If rs.EOF <> True Then 'ESTO NOS DA UN VALOR BOOLEANO DE TIPO FALSO  MIENTRAS QUE EXISTA LOS DATOS CONSULTADOS
            rs.MoveFirst() 'NOS PERMITE MOVER EL PRIMER REGISTRO Y LEERLO 
            If txtPass.Text = rs.Fields(1).Value.ToString Then 'NOS PERMITE VERIFICAR QUE SI EL PASSWOORD DE LA PRIMERA COLUMNA DE LA TABLA USUARIO EXISTE PARA LA RESPECTIVA CONECCION
                Me.Hide() 'NOS PERMITE CERRAR LA APLICACION DEL FORMULAQRIO ACTUAL
                LogeoPrincipal.Show() ' NOS PERMITE MOSTRAR EL FORMULARIO DEL LOGUEO PRINCIPAL
            Else
                MsgBox("Error") ' Y SI NO SE ENCUENTRA EL RESPECTIVO PASSWORD EN LA TABLA USUARIO NOS SALDRA UN ERROR  
            End If
        End If
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUsuario.TextChanged
        PictureBox1.Load("M.bmp") ' MUESTRA LA IMAGEN CUANDO SE DIGITA TEXTO EN USUARIO
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPass.TextChanged
        PictureBox2.Load("n.bmp") ' MUESTRA LA IMAGEN   CUANDO SE DIGITA TEXTO EN PASSWOORD
    End Sub

    Private Sub IndicarDireccionBDToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IndicarDireccionBDToolStripMenuItem.Click
        
        ModificarConeccion() ' ESTE PERMITE MODIFICAR LA CONNECCION PARA UNA INICIACION CORRECTA A LA BD
    End Sub
    Public Sub ModificarConeccion()
        Dim cadena As String = InputBox("Debe ingresar la clave para modificar el origen") 'PERMITE  MODIFICAR LA CONECCION SI HUBO UN ERROR
        If cadena = "ADM01" Then ' SI LA CADENA ES IGUAL A ADM NOS ENVIARA A OTRA VENTANA PARA REALIZAR LA CORRECTA CONECCION
            Ruta.Show() 'MUESTRA LA VENTANA DE LA RUTA PARA LA CONECCION
        Else
            MsgBox("No es usuario autorizado") ' ENVIA UN MENSAJE DE ERROR SI NO ENCUENTRA EL TIPO DE USUARIO CORRECTO
        End If
    End Sub
    Private Sub AutoresToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AutoresToolStripMenuItem.Click
        AboutBox1.Show() 'MUESTRA LA VENTANA DE LOS AUTORES DEL PROYECTO
    End Sub
End Class
